===========================================================================
 BBS: The Abacus * HST/DS * Potterville, MI
Date: 03-12-93 (23:21)             Number: 19
From: BOB SEWELL                   Refer#: NONE
  To: DANNY ROBINSON                Recvd: NO  
Subj: Cursor Location                Conf: (35) Quick Basi
---------------------------------------------------------------------------
 In what possibly was a momentary lapse of reason, Danny Robinson said:

 DR> Can anyone give me a routine to get the current cursor row/column
 DR> using BIOS calls?  Thanks.

' Just shelled out and tested this. It works as advertised.
' Make sure you load QuickBasic with the /L option.
'
'$INCLUDE: 'qb.bi'
DIM regs AS RegType
regs.ax = &H300               'function 03h
regs.bx = 0                   'screen page zero
INTERRUPT &H10, regs, regs    'int 10h
row% = (regs.dx \ 256) + 1    'row position returned in DH register
col% = (regs.dx MOD 256) + 1  'column position stored in DL register

     You could just use the POS and CSRLIN functions, you know. But this is
what you asked for...



--- WINK 1.1.0b ;-)  Opus QWK
 * Origin: Strawberry Fields (1:116/5)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20